home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / errormes.def < prev    next >
Text File  |  1992-03-11  |  2KB  |  49 lines
  1. DEFINITION MODULE ErrorMesg;
  2. (*    File name: ErrorMesg                             *)
  3. (*    Creation : Auguest 1985                             *)
  4. (*    Function : Printer error mesg and exit if nesseary             *)
  5. (*    By     : Morris                             *)
  6. (*                                         *)
  7. (*    (C) 1984-1985 Djavaher Bros.                         *)
  8. (*    History of modifcation                             *)
  9. (*    Date        Who        Why                     *)
  10. (*                                         *)
  11. (*
  12. *    Copyright (c) 1985, 1986 by
  13. *    Djavaheri Bros., Foster City, California.
  14. *    All Rights Reserved.
  15. *
  16. *    This software is furnished under a license and may be used and copied
  17. *    only  in accordance with  the  terms  of  such  license and  with the
  18. *    inclusion of the above copyright notice.  This software or  any other
  19. *    copies thereof may not be provided or otherwise made available to any
  20. *    other  person.   No title to and ownership of the  software is  herby
  21. *    transferred.
  22. *
  23. *    The information in this software is  subject to change without notice
  24. *    and  should  not be construed as a commitment by Djavaheri Bros.   No
  25. *    warranty is implied or expressed.
  26. *
  27. *  SCCID  = "1.1    1/26/86"; 
  28. *)
  29. FROM SYSTEMX IMPORT MERROR;
  30. FROM Files IMPORT FileState;
  31. FROM Program IMPORT CallResult;
  32. EXPORT QUALIFIED FileErrorMesg,MerrorMesg,TerminateMesg,ErrorMessage;
  33.  
  34. PROCEDURE FileErrorMesg( VAR str  : ARRAY OF CHAR;
  35.                 state : FileState;
  36.                 exit  : BOOLEAN);
  37.  
  38. PROCEDURE MerrorMesg(VAR str : ARRAY OF CHAR;
  39.             exit : BOOLEAN);
  40.  
  41. PROCEDURE ErrorMessage(VAR str : ARRAY OF CHAR;
  42.               exit : BOOLEAN);
  43.  
  44. PROCEDURE TerminateMesg(VAR str    : ARRAY OF CHAR;
  45.                     reason : CallResult;
  46.                 exit   : BOOLEAN);
  47.  
  48. END ErrorMesg.
  49.